home *** CD-ROM | disk | FTP | other *** search
- object frmCheck: TfrmCheck
- Left = 332
- Top = 124
- Width = 491
- Height = 528
- Caption = 'EMail Demo'
- Font.Color = clWindowText
- Font.Height = -14
- Font.Name = 'System'
- Font.Style = []
- OnCreate = FormCreate
- OnDestroy = FormDestroy
- OnResize = FormResize
- PixelsPerInch = 96
- TextHeight = 16
- object Label2: TLabel
- Left = 8
- Top = 10
- Width = 56
- Height = 13
- Caption = 'POP &Server'
- FocusControl = cbMailServer
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label3: TLabel
- Left = 8
- Top = 37
- Width = 22
- Height = 13
- Caption = '&User'
- FocusControl = cbUser
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Label4: TLabel
- Left = 198
- Top = 37
- Width = 46
- Height = 13
- Caption = '&Password'
- FocusControl = cbPasswd
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object lStats: TLabel
- Left = 0
- Top = 227
- Width = 400
- Height = 13
- Alignment = taCenter
- AutoSize = False
- Caption = 'Unconnected'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object imEmpty: TImage
- Left = 320
- Top = 6
- Width = 16
- Height = 16
- AutoSize = True
- Picture.Data = {<image000.bmp>}
- Visible = False
- end
- object imRetrvd: TImage
- Left = 333
- Top = 6
- Width = 16
- Height = 16
- AutoSize = True
- Picture.Data = {<image001.bmp>}
- Visible = False
- end
- object imDelete: TImage
- Left = 346
- Top = 6
- Width = 16
- Height = 16
- AutoSize = True
- Picture.Data = {<image002.bmp>}
- Visible = False
- end
- object imMultipart: TImage
- Left = 358
- Top = 6
- Width = 16
- Height = 16
- AutoSize = True
- Picture.Data = {<image003.bmp>}
- Visible = False
- end
- object Label1: TLabel
- Left = 198
- Top = 10
- Width = 62
- Height = 13
- Caption = 'S&elect Profile'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- end
- object Button1: TButton
- Left = 0
- Top = 61
- Width = 78
- Height = 19
- Caption = '&Check Mail'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 0
- OnClick = Button1Click
- end
- object Button2: TButton
- Left = 83
- Top = 61
- Width = 65
- Height = 19
- Caption = 'R&etrieve'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 1
- OnClick = Button2Click
- end
- object Button3: TButton
- Left = 154
- Top = 61
- Width = 77
- Height = 19
- Caption = '&Disconnect'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 2
- OnClick = Button3Click
- end
- object Button4: TButton
- Left = 237
- Top = 61
- Width = 65
- Height = 19
- Caption = 'C&ompose'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 3
- OnClick = Button4Click
- end
- object Button5: TButton
- Left = 307
- Top = 61
- Width = 46
- Height = 19
- Caption = '&Reply'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 4
- OnClick = Button5Click
- end
- object tMessage: TMemo
- Left = 2
- Top = 243
- Width = 461
- Height = 180
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- ScrollBars = ssBoth
- TabOrder = 5
- end
- object Button6: TButton
- Left = 358
- Top = 61
- Width = 46
- Height = 19
- Caption = 'De&lete'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 6
- OnClick = Button6Click
- end
- object Button7: TButton
- Left = 410
- Top = 61
- Width = 40
- Height = 19
- Caption = 'U&ndo'
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ParentFont = False
- TabOrder = 7
- OnClick = Button7Click
- end
- object lMessages: TStringGrid
- Left = 0
- Top = 83
- Width = 468
- Height = 142
- DefaultRowHeight = 18
- FixedCols = 0
- RowCount = 2
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- Options = [goFixedVertLine, goFixedHorzLine, goVertLine, goHorzLine, goColSizing, goRowSelect, goThumbTracking]
- ParentFont = False
- TabOrder = 8
- OnDblClick = lMessagesDblClick
- OnDrawCell = lMessagesDrawCell
- OnKeyDown = lMessagesKeyDown
- end
- object lbBtmLines: TListBox
- Left = 0
- Top = 448
- Width = 468
- Height = 26
- BorderStyle = bsNone
- Color = clBtnFace
- Ctl3D = False
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- Items.Strings = (
- 'trace protocol here -- right click to clear')
- ParentCtl3D = False
- ParentFont = False
- TabOrder = 9
- OnMouseDown = lbBtmLinesMouseDown
- end
- object cbMailServer: TComboBox
- Left = 83
- Top = 6
- Width = 103
- Height = 21
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 10
- end
- object cbUser: TComboBox
- Left = 83
- Top = 34
- Width = 103
- Height = 21
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 11
- end
- object cbPasswd: TComboBox
- Left = 262
- Top = 34
- Width = 104
- Height = 21
- Font.Color = clBlack
- Font.Height = -9
- Font.Name = 'MS Sans Serif'
- Font.Style = []
- ItemHeight = 13
- ParentFont = False
- TabOrder = 12
- end
- object NetCode1: TipwNetCode
- MaxFileSize = 0
- Mode = '600'
- Left = 387
- Top = 4
- RegHnd = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000}
- end
- object POP1: TipwPOP
- WinsockLoaded = False
- Left = 419
- Top = 4
- RegHnd = {
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000
- 0000000000000000000000000000000000000000000000000000000000000000}
- end
- end
-